;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
(DEFUN c:nilbns
                ()
  (SETQ atms-list (ATOMS-FAMILY 2))
  (FOREACH n atms-list
    (IF (EQ (SUBSTR n 1 3) "BNS")
      (SET (READ n) nil)
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of defun
